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-TITLE FORSD ae MF = entry pein for FORTRAN DECODE FORMATTED 
IDENT /1-011/ File: FORDECOMF.MAR Edit: JAW1011 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


hes * Ys FURNISHED nee A_LICENSE AND MAY BE USED AND COPIED 
ACCORDANCE WITH THE TERMS OF SUCH LiCcee AN . A H_ THE 
OF THe ABOVE TV githod NOTICE. THIS § SOFT WARE OR OTHER 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT 10 CHANGE WITHOUT NOTICE 
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FACILITY: FORTRAN Support Library - user callable 

ABSTRACT: 
This module contains the entry point for the FORTRAN 
DECODE FORMATTED 1/0 statement. It is sinply 
a call to FORSS!IN BEG with bits in RO which describe the 
parameter List. FORSSIO_BEG interprets the parameters. 


MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


. TRANSFER FORSDECODE_MF 

. MASK FORSSI 

BRW FORSDECODE_MF+2 

This puts the correct mask in entry vector, Vo is FORSSIO_BEG entry mask. 


Furthermore this module must only use RO and 
since any other register might not be in the entry mask for FORS$$I0_BEG. 


OOCCoooooooooooo 
SOOOoCoooooooooocoo 
SOOCOCCOCOOCOCOCOOoOoOoOooOoSoOo 
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ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


MODIFIED BY: | 
T. Hastings, 29-July-78 
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-SBTTL HISTORY ; Detailed Current Edit History 


FORSDE CODE _MF = ent 
1-011 HISTO 


Edit History for Version 1 


Oumuw 


Add comment about vectors. TNH 23-June-78 
Pass arg in RO, not ROR, add comments. TNH ho gf Od 
Update version number and copyright notice. JBS 16-NOV-78 
Change statement type symbols to be LUB$K... JBS 07-DEC-78 
Change statement ty e symbols to be ISB$K... JBS 11-DEC-78 
Add 0 PS directive. JBS 22-DEC- 
m FORSREAD_KO, FORSREWRITE_SF, FORSREWRITE_SO, | 
FORSREAD_IF, FORSREAD_I0, FORSWRITE_IF, FORSWRITE_10, 
FORSREAD “KY FORSREWRITE_SU, 
SBL 2-May-1979 
1-006 - Remove all entry peroce that need object time formatting, 
putt ins them in FORSENTRY_OBJ so that we can arrange to 
oad the format compiler only when it is needed. 
JBS 26-JUN-1979 : 
1-007 - Remove entry point FORSENCODE_MF; we will code a new module 
for it and FORS$I0_BEG, to see how much I/0 initiation time 
improves. JBS 02-JUL-1979 
08 - Do likewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 
09 = Remove all entry points except FORSDECODE_MF; each of the | 
j 
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others gets its own module so we can selectively load 
the necessary UDF and REC modules. JBS 09-JUL-1979 
10 - New parameter format for FORS$$IO_BEG. SBL 5-Dec-1979 
11 = Change BRW FORS$IO_BEG+2 to JMP G*FORSS$IO_BEG+2. JAW 21-Feb-1981 
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v04-00 Page 3 
DECLARATIONS 6-SEP-1984 ORDECOMF .MAR; 1 (3) | 


0090 -SBTTL DECLARATIONS 

0 : 

0000 : INCLUDE FILES: 

0000 : 

0000 
0000 SFORPAR ; Define inter-module FORTRAN symbols 
8008 SISBDEF 3; Define statement type symbols 
0000 : | 
0000 ; EXTERNAL SYMBOLS: 

0000 «gf | 
0000 -DSABL GBL ; Declare all external symbols 
i443 x -EXTRN FORS$I0_BEG ; common 1/0 statement processing 

0000 : The es references are to make sure the necessary UDF and REC 
0000 ; modules are loaded. These are the routines which are called through 
0000 3; the dispatch tables in FORSSDISPAT. 


.EXTRN FORSSUDF_RFO, FORSSUDF_RF1, FORSSUDF_RF9 | 
“EXTRN FORSSRECTRMFO, FORSSREC_RMF1, FORSSREC_RMF9 
MACROS: | 
NONE 
PSECT DECLARATIONS: 


-PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT ,LONG 


OWN STORAGE: 


| 

| 

+ EQUATED SYMBOLS: | 
| 

NONE 
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* 
; FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN I/0 system to perform 
a DECODE formatted I/0 statement. 


; CALLING SEQUENCE: 


CALL FORSDECODE_MF (char_cnt.rlu.v, format_adr.mbu.ra, usr_buf_adr.wt.ra 
. err_adr.j.r C, end_adr.j.rJj) 


: INPUT PARAMETERS: 

; unit.rl.v logical unit number | 
format_adr.mbu.ra adr. of compiled format byte array 
; usr_buf_adr.wt.ra adr. of user's buffer 
5 err_adr.j.r] optional ERR= address | 
: end_adr.j.rJ optional END= address 
: IMPLICIT INPUTS: 

: NONE except those used by FORS$IO_BEG. 

: OUTPUT PARAMETERS: 

: NONE 

: IMPLICIT OUTPUTS: 

: NONE except those left by FORS$IO_BEG. 

* COMPLETION CODES: 

: NONE 

: SIDE EFFECTS: 

: NONE except those of FORS$$I0_BEG. 


FORSDECODE _MF:: . 
MOUZBL # 
JMP G 


FORS$I0_ BEG 
50 OC 9A K_ST_TY_RMF, RO ; Statement type 
00000002°GF 17 $$10-BEG+2 ; Branch past call mask 
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~END 
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FORS$10_BEG eeeeeere =X 9 ; 
FORSSREC_RMFO teeeeeee Xx : 
FORSSREC_RMF 1 keeeeene X 0 e 
FORSSREC_RMF9 teeeeere KX 00 : 
ORSSUDF _RFO etererer X ’ 
FORSSUDF ~RF 1 eeeeeeee : 
FORSSUDF _RF9 keeeteet x 00 : 
FORSDECOBE MF 00000000 RG 01 r 
SBSK_ST_TY_RMF = 0000000C - 
poewseccosceecosce + | Ps 
: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_F ORSCODE C000000B i i ee re PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
{ “Performance indicators ! | 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.08 00:00:01.04 
Command processing 110 00:00:00.60 00:00:04.30 
Pass 1 126 ae RE 00:00:06.07 
Symbol table sort 0 00:00:00.18 00:00:00.18 
Pass 2 46 00:00:00.48 00:00:02.48 
Symbol table output 3 00:00:00.02 00:00:00.22 
Psect synopsis output 2 00:00:00.01 00:00:00.07 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 318 00:00:02.62 00:00:14.44 


The working set Limit was 900 pages. 

6671 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 187 non-local and 0 local symbols. 

177 source Lines were read in Pass 1, producing 8 object records in Pass 2. 
9 pages of virtual memory were used to define 2 macros. 


poem ere orm emer’ mem ene eww + 


! Macro Library statistics ! 
dew een snr aen nse enn en eS - eee eee + j 


Macro Library name Macros defined 
_$255$DUA28:CFORRTL.OBJJFORRTL.MLB; 1 2 
$255$DUA28: (SYSLIBISTARLET.MLB;2 0 
TOTALS (all Libraries) 2 
183 GETS were required to define 2 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORDECOMF /OBJ=OBJ$:FORDECOMF MSRC$:FORDECOMF /UPDATE=(ENH$:FORDECOMF)+L1 | 
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